home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 3-Pak 2 - Disc 2
/
Infomagic - Windows 3-Pak Volume 2 (Disc 2 of 3).iso
/
Telnet-Clients
/
secmail.exe
/
_setup.3
/
Group4
/
ISSIMG.dll
/
RCDATA
/
TIMAGEVIEWER
/
TIMAGEVIEWER.txt
< prev
Wrap
Text File
|
1997-10-04
|
20KB
|
511 lines
object ImageViewer: TImageViewer
Left = 180
Top = 134
Width = 473
Height = 341
Caption = 'Image Viewer'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 465
Height = 41
Align = alTop
TabOrder = 0
object SaveBut: TSpeedButton
Left = 16
Top = 8
Width = 25
Height = 25
Hint = 'Save Image'
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003333330000000000000300003333330788888888880300003333
330F77777777780300003333330F99777777780300003333330FFFFFFFFFF703
0000333333000000000000030000333333333333333333330000333333333333
33003333000033333333333330000333000030000000033300000033000030FF
FFFF033333003333000030F4444F033333003333000030FFFFFF033338003333
000030F4444F030000083333000030FFFFFF030000833333000030F44F000333
33333333000030FFFF0033333333333300003000000333333333333300003333
33333333333333330000}
OnClick = Save1Click
end
object ExitBut: TSpeedButton
Left = 424
Top = 8
Width = 25
Height = 25
Hint = 'Exit'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F33330000000000033333777777777773330000}
NumGlyphs = 2
OnClick = Exit1Click
end
object PrintBut: TSpeedButton
Left = 160
Top = 8
Width = 25
Height = 25
Hint = 'Print Image'
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DD000DDDDDDDDDD000DD0000D000
000000000000000D0000D0F8888888888888880D0000D0F8888888888888880D
0000D0F8888888822899880D0000D0FFFFFFFFFFFFFFFF0D0000D70077777777
7777007D0000DDD00000000000000DDD0000DDD00FFFFFFFFFF00DDD0000DDDD
0F00000000F0DDDD0000DDDD0FFFFFFFFFF0DDDD0000DDDD0F00000000F0DDDD
0000DDDD0FFFFFFFFFF0DDDD0000DDDD0F00FFFFFFF0DDDD0000DDDD0FFFFFFF
FFF0DDDD0000DDDD000000000000DDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDD
DDDDDDDDDDDDDDDD0000}
OnClick = PrintButClick
end
object PrintSetupBut: TSpeedButton
Left = 184
Top = 8
Width = 25
Height = 25
Hint = 'Printer Setup'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF77333333333000000333333333377777733333330000}
NumGlyphs = 2
OnClick = PrintSetup1Click
end
object ZoomOutBut: TSpeedButton
Left = 232
Top = 8
Width = 25
Height = 25
Hint = 'Zoom Out'
Glyph.Data = {
16050000424D160500000000000036040000280000000E0000000E0000000100
080000000000E000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303000003030303030303030303030303030000030303030303
0303030303030303000003030303030303030303030303030000030303030303
0303030303030303000003030303030303030303030303030000030300000000
00000000000003030000030300FFFFFFFFFFFFFFFF0003030000030300000000
0000000000000303000003030303030303030303030303030000030303030303
0303030303030303000003030303030303030303030303030000030303030303
0303030303030303000003030303030303030303030303030000}
OnClick = ZoomOutButClick
end
object ZoomInBut: TSpeedButton
Left = 256
Top = 8
Width = 25
Height = 25
Hint = 'Zoom In'
Glyph.Data = {
16050000424D160500000000000036040000280000000E0000000E0000000100
080000000000E000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303000003030303030303030303030303030000030303030303
0303030303030303000003030303030000000303030303030000030303030300
FF000303030303030000030303030300FF000303030303030000030300000000
FF000000000303030000030300FFFFFFFFFFFFFF000303030000030300000000
FF000000000303030000030303030300FF000303030303030000030303030300
FF00030303030303000003030303030000000303030303030000030303030303
0303030303030303000003030303030303030303030303030000}
OnClick = ZoomInButClick
end
object LoadImageBut: TSpeedButton
Left = 40
Top = 8
Width = 25
Height = 25
Hint = 'Load Image'
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333000030000000000000333333000030788888888880333333000030F7
7777777780333333000030F99777777780333333000030FFFFFFFFFF70333333
0000300000000000003333330000333333333333333333330000333003333333
3333333300003330033333333333333300003330033333300000000300003330
03303330FFFFFF030000333008300330F4444F030000333800000030FFFFFF03
0000333380000030F4444F030000333333300330FFFFFF030000333333303330
F44F00030000333333333330FFFF003300003333333333300000033300003333
33333333333333330000}
OnClick = Open1Click
end
object CopyClipBut: TSpeedButton
Left = 88
Top = 8
Width = 25
Height = 25
Hint = 'Copy Image To Clipboard'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
OnClick = CopyToClipboard1Click
end
object PasteBut: TSpeedButton
Left = 112
Top = 8
Width = 25
Height = 25
Hint = 'Paste From Clipboard'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
93337777FF777777733370000000073333333777777773333333}
NumGlyphs = 2
OnClick = PasteFromClipboard1Click
end
end
object ScrollBox1: TScrollBox
Left = 10
Top = 51
Width = 445
Height = 215
Align = alClient
TabOrder = 1
object Image: TJPEGImage
Left = 0
Top = 0
Width = 161
Height = 121
AutoSize = True
Center = True
ParentShowHint = False
ShowHint = False
Stretch = True
NumOfColors = _256
DCTMethod = Integ
Dither = FS
FastProcessing = False
GrayScale = False
NoSmooth = False
OnePass = False
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 276
Width = 465
Height = 19
Panels = <>
SimplePanel = True
end
object Panel2: TPanel
Left = 455
Top = 51
Width = 10
Height = 215
Align = alRight
BevelOuter = bvNone
TabOrder = 3
end
object Panel3: TPanel
Left = 0
Top = 266
Width = 465
Height = 10
Align = alBottom
BevelOuter = bvNone
TabOrder = 4
end
object Panel4: TPanel
Left = 0
Top = 51
Width = 10
Height = 215
Align = alLeft
BevelOuter = bvNone
TabOrder = 5
end
object Panel5: TPanel
Left = 0
Top = 41
Width = 465
Height = 10
Align = alTop
BevelOuter = bvNone
TabOrder = 6
end
object MainMenu1: TMainMenu
Left = 168
Top = 88
object File1: TMenuItem
Caption = '&File'
ShortCut = 0
object Open1: TMenuItem
Caption = '&Open'
ShortCut = 0
OnClick = Open1Click
end
object Save1: TMenuItem
Caption = '&Save'
ShortCut = 0
OnClick = Save1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Print1: TMenuItem
Caption = '&Print'
ShortCut = 0
OnClick = PrintButClick
end
object PrintSetup1: TMenuItem
Caption = 'Print Set&up'
ShortCut = 0
OnClick = PrintSetup1Click
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 0
OnClick = Exit1Click
end
end
object Edit1: TMenuItem
Caption = '&Edit'
ShortCut = 0
object CopyToClipboard1: TMenuItem
Caption = '&Copy To Clipboard'
ShortCut = 0
end
object PasteFromClipboard1: TMenuItem
Caption = '&Paste From Clipboard'
ShortCut = 0
OnClick = PasteFromClipboard1Click
end
end
object Options1: TMenuItem
Caption = '&Options'
ShortCut = 0
object JPG1: TMenuItem
Caption = '&JPG'
Enabled = False
ShortCut = 0
object Colors1: TMenuItem
Caption = '&Colors'
ShortCut = 0
object N16Color1: TMenuItem
Caption = '&16 Color'
GroupIndex = 1
ShortCut = 0
OnClick = N16Color1Click
end
object N256Color1: TMenuItem
Caption = '&256 Color'
Checked = True
GroupIndex = 1
ShortCut = 0
OnClick = N256Color1Click
end
object TrueColor1: TMenuItem
Caption = '&True Color'
GroupIndex = 1
ShortCut = 0
OnClick = TrueColor1Click
end
end
object GrayScale1: TMenuItem
Caption = '&Gray Scale'
ShortCut = 0
OnClick = GrayScale1Click
end
object Smooth1: TMenuItem
Caption = '&Smooth'
ShortCut = 0
OnClick = Smooth1Click
end
object SinglePass1: TMenuItem
Caption = '&One Pass'
ShortCut = 0
OnClick = SinglePass1Click
end
object FastProcessing1: TMenuItem
Caption = '&Fast Processing'
ShortCut = 0
OnClick = FastProcessing1Click
end
end
object GIF1: TMenuItem
Caption = '&GIF'
Enabled = False
ShortCut = 0
object ImageInformation1: TMenuItem
Caption = '&File Information'
ShortCut = 0
OnClick = ImageInformation1Click
end
end
end
object Help1: TMenuItem
Caption = '&Help'
ShortCut = 0
object ImageViewer1: TMenuItem
Caption = '&Image Viewer'
ShortCut = 0
OnClick = ImageViewer1Click
end
end
end
object SaveDialog: TSaveDialog
FileEditStyle = fsEdit
Filter = 'GIF File|*.gif|BMP File|*.bmp|SIF File|*.sif|All Files|*.*'
Options = [ofOverwritePrompt]
Title = 'Save Image File'
Left = 232
Top = 88
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 264
Top = 88
end
object OpenDialog: TOpenDialog
FileEditStyle = fsEdit
Filter =
'JPG Files|*.jpg|Gif Files|*.gif|Bitmap Files|*.bmp|Windows Meta ' +
'Files|*.wmf|Scaned Image Format|*.sif|All Files|*.*'
Options = [ofHideReadOnly, ofFileMustExist]
Title = 'Open Image File'
Left = 200
Top = 88
end
object PrintDialog1: TPrintDialog
Left = 298
Top = 83
end
object ZipMaster1: TZipMaster
Verbose = False
Trace = False
AddCompLevel = 9
AddOptions = []
ExtrOptions = []
OnProgress = ZipMaster1Progress
OnMessage = ZipMaster1Message
Left = 332
Top = 85
end
end